(require (planet schematics/schemeunit:3))
"Exercicio 1.3"
"Achar o quadrado dos dois maiores de tres parametros"
(define (quadrado x) (* x x))
(define (soma-quadrados a b)
  (+ (quadrado a)
     (quadrado b)))
(define (quadrados-maiores a b c)
  (cond ((and (<= a b) (<= a c)) (soma-quadrados b c))
        ((and (<= b a) (<= b c)) (soma-quadrados a c))
        (else (soma-quadrados a b))))
"Testes:"
(check-equal? (quadrados-maiores 1 3 4) 25)
(check-equal? (quadrados-maiores 3 1 4) 25)
(check-equal? (quadrados-maiores 4 3 1) 25)
(check-equal? (quadrados-maiores 12 1 16) 400)
(check-equal? (quadrados-maiores 2 2 2) 8)
(check-equal? (quadrados-maiores 2 2 3) 13)
(check-equal? (quadrados-maiores 2 3 2) 13)
(check-equal? (quadrados-maiores 3 2 2) 13)